home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / fco_lp.zip / LP.PRG < prev   
Text File  |  1993-03-14  |  2KB  |  99 lines
  1. #include fileio.hdr
  2. #include string.hdr
  3. #include io.hdr
  4. #include date.hdr
  5. #include system.hdr
  6.  
  7.  
  8. VARDEF
  9.    FILE f
  10.    CHAR Line
  11.    UINT Seite, Zeile
  12.     
  13.    CHAR(25)    pinit, feein, feaus, cpi10, cpi12, cpi16, nlq, nlaus, ;
  14.            undl, unaus, dw, dwaus, ital, itaus
  15. ENDDEF
  16.  
  17. PROCEDURE Kopf
  18.   PARAMETERS VALUE CHAR CL
  19.   ?  chr( 12 )
  20.   ?? feein
  21.   ?  "Datei: "
  22.   ?? ltrim( CL )
  23.   ?? "Datum: "
  24.   ?? dtoc( today() )
  25.   ?? space( 10 )
  26.   ?? "Seite: "
  27.   ?? ltrim( i_str( Seite ))
  28.   ?? feaus
  29.   ?
  30.   ? 
  31. ENDPRO
  32.     
  33.  
  34. PROCEDURE fco_main
  35.   PARAMETERS CONST CHAR CommandLine
  36.  
  37.   SET DATE GERMAN
  38.   SET MARGIN TO 5
  39.  
  40.   DO key_dos
  41.   DO scrn_dos
  42.  
  43.   *--- IBM Grafik
  44.   pinit = chr(27)+chr(54)        && Esc 6 = Zeichensatz 2
  45.   feein = chr(27)+chr(69)        && Esc E
  46.   feaus = chr(27)+chr(70)        && Esc F
  47.   cpi10 = chr(18)
  48.   cpi12 = chr(0)
  49.   cpi16 = chr(15)
  50.   nlq   = chr(0)
  51.   nlaus = chr(0)     
  52.   undl  = chr(27)+chr(15)
  53.   unaus = chr(0)     
  54.   dw    = chr(27)+"-1"
  55.   dwaus = chr(27)+"-0"
  56.   ital  = chr(0)
  57.   itaus = chr(0)     
  58.  
  59.  
  60.   ? "LinePrint v1.0 (c) 1993 by Alfred Klich"
  61.   
  62.   IF .not. f_open( f, ltrim( CommandLine ), &B_READ )
  63.     ? "Syntax: LP <name>.<ext>"
  64.     QUIT
  65.   ENDIF
  66.  
  67.   Seite = 1
  68.   Zeile = 1
  69.   
  70.   SET CONSOLE OFF
  71.   SET PRINT ON
  72.  
  73.   ?? pinit 
  74.   ?? cpi16  
  75.   
  76.   DO Kopf with ltrim( CommandLine )
  77.   
  78.   DO WHILE .NOT. f_eof( f )
  79.      IF f_getln( f, Line )
  80.         Zeile = Zeile +1
  81.         IF Zeile = 57
  82.            Zeile = 1
  83.            Seite = Seite +1
  84.            DO Kopf with CommandLine
  85.         ENDIF
  86.         ? Zeile
  87.      ENDIF
  88.   ENDDO
  89.  
  90.   ? cpi10
  91.   
  92.   SET PRINT OFF
  93.   SET CONSOLE ON
  94.   SET MARGIN TO 0
  95.   
  96.   f_close( f )
  97.   
  98. ENDPRO
  99.